home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_ctrl / cuactrls / clamp.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-22  |  4.0 KB  |  153 lines
  1. VERSION 2.00
  2. Begin Form frmLamp 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Lamp Demo"
  5.    ClientHeight    =   1500
  6.    ClientLeft      =   1695
  7.    ClientTop       =   3405
  8.    ClientWidth     =   4950
  9.    Height          =   1905
  10.    Left            =   1635
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   1500
  13.    ScaleWidth      =   4950
  14.    Top             =   3060
  15.    Width           =   5070
  16.    Begin CUALamp lmp6 
  17.       Height          =   120
  18.       Left            =   4395
  19.       Style           =   0  'Micro
  20.       TabIndex        =   11
  21.       Top             =   1140
  22.       Value           =   2  'Yellow
  23.       Width           =   120
  24.    End
  25.    Begin CUALamp lmp5 
  26.       Height          =   120
  27.       Left            =   1230
  28.       Style           =   0  'Micro
  29.       TabIndex        =   10
  30.       Top             =   150
  31.       Width           =   120
  32.    End
  33.    Begin CUALamp lmp4 
  34.       Height          =   120
  35.       Left            =   2970
  36.       Style           =   0  'Micro
  37.       TabIndex        =   9
  38.       Top             =   165
  39.       Value           =   1  'Green
  40.       Width           =   120
  41.    End
  42.    Begin CUALamp lmp3 
  43.       Height          =   120
  44.       Left            =   1395
  45.       Style           =   0  'Micro
  46.       TabIndex        =   8
  47.       Top             =   1245
  48.       Value           =   3  'Red
  49.       Width           =   120
  50.    End
  51.    Begin CUALamp lmp2 
  52.       Height          =   480
  53.       Left            =   1305
  54.       Style           =   2  'Medium
  55.       TabIndex        =   7
  56.       Top             =   525
  57.       Value           =   1  'Green
  58.       Width           =   390
  59.    End
  60.    Begin CUACommand cmdWait 
  61.       Caption         =   "Show me!"
  62.       Height          =   345
  63.       Left            =   3525
  64.       StandardButton  =   25  'Look
  65.       TabIndex        =   1
  66.       Top             =   495
  67.       Width           =   1260
  68.    End
  69.    Begin CUACommand cmdOK 
  70.       Caption         =   "OK"
  71.       Default         =   -1  'True
  72.       Height          =   345
  73.       Left            =   3525
  74.       StandardButton  =   1  'OK
  75.       TabIndex        =   0
  76.       Top             =   90
  77.       Width           =   1260
  78.    End
  79.    Begin Timer Timer1 
  80.       Interval        =   1500
  81.       Left            =   3630
  82.       Top             =   960
  83.    End
  84.    Begin CUALamp lmps 
  85.       Height          =   195
  86.       Index           =   1
  87.       Left            =   2640
  88.       TabIndex        =   2
  89.       Top             =   660
  90.       Value           =   3  'Red
  91.       Width           =   195
  92.    End
  93.    Begin CUALamp lmps 
  94.       Height          =   195
  95.       Index           =   0
  96.       Left            =   2070
  97.       TabIndex        =   3
  98.       Top             =   210
  99.       Value           =   2  'Yellow
  100.       Width           =   195
  101.    End
  102.    Begin CUALamp lmps 
  103.       Height          =   195
  104.       Index           =   2
  105.       Left            =   2100
  106.       TabIndex        =   4
  107.       Top             =   1110
  108.       Value           =   1  'Green
  109.       Width           =   195
  110.    End
  111.    Begin CUALamp lmps 
  112.       Height          =   195
  113.       Index           =   3
  114.       Left            =   2910
  115.       TabIndex        =   5
  116.       Top             =   1170
  117.       Width           =   195
  118.    End
  119.    Begin CUALamp lmp1 
  120.       Height          =   930
  121.       Left            =   210
  122.       Style           =   3  'Large
  123.       TabIndex        =   6
  124.       Top             =   270
  125.       Value           =   1  'Green
  126.       Width           =   720
  127.    End
  128. Option Explicit
  129. Dim Delta%
  130. Sub cmdOK_Click ()
  131.    Unload Me
  132. End Sub
  133. Sub cmdWait_Click ()
  134.    If lmp1 = 1 Then
  135.       Delta = 1
  136.    Else
  137.       Delta = -1
  138.    End If
  139. End Sub
  140. Sub Form_Load ()
  141.    lmp1 = LAMP_RED
  142.    lmp2 = LAMP_RED
  143.    Delta = 1
  144. End Sub
  145. Sub Timer1_Timer ()
  146.    Dim i As Integer
  147.    i = lmp1 + Delta
  148.    If i >= LAMP_GREEN And i <= LAMP_RED Then
  149.       lmp1 = i
  150.       lmp2 = i
  151.    End If
  152. End Sub
  153.